home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / fb386 / tool / watanabe / short / time.bas < prev    next >
BASIC Source File  |  1994-12-01  |  563b  |  19 lines
  1. 100 CLEAR:DEFINT A-Z:DIM T(12)
  2. 110 COLOR 7,0,,4:CLS
  3. 115 *TIME_READ
  4. 120   WHILE NOT(INP(&H70,1)) AND &H80:BEEP:WEND
  5. 130   OUT &H80,&H80
  6. 140   FOR I=0 TO 12
  7. 150     OUT &H70,I
  8. 160     OUT &H80,&H81
  9. 170     OUT &H80,&H80
  10. 180     OUT &H80,&H84
  11. 190     IF I=5 OR I=8 THEN AN=3 ELSE AN=15
  12. 200     T(I)=INP(&H70,1) AND AN
  13. 210     OUT &H80,&H80
  14. 220   NEXT
  15. 230   OUT &H80,&H00
  16. 240   LOCATE 0,0
  17. 250   PRINT USING"19##年##月##日 ##時##分##秒";T(12)*10+T(11);T(10)*10+T(9)          ;T(8)*10+T(7);T(5)*10+T(4);T(3)*10+T(2);T(1)*10+T(0)
  18. 260   GOTO *TIME_READ
  19.